home *** CD-ROM | disk | FTP | other *** search
/ Basic Press Kit / Basic Press Kit.iso / pc / progthis.dxr / 00023.ls < prev    next >
Encoding:
Text File  |  2001-10-11  |  368 b   |  15 lines
  1. on progBar loopNum
  2.   theDiv = member("repeatNum").text
  3.   theNudge = 270 / theDiv
  4.   if the width of sprite 22 = 270 then
  5.     nothing()
  6.   else
  7.     set the width of sprite 22 to loopNum * theNudge
  8.     set the floatPrecision to 2
  9.     p = float(loopNum) / float(theDiv)
  10.     p = integer(p * 100)
  11.     put "(" & p & "%)" into field "Percentage"
  12.     updateStage()
  13.   end if
  14. end
  15.